home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
prog
/
proxy14.arj
/
COPY.PRX
next >
Wrap
Text File
|
1992-06-23
|
365b
|
11 lines
eos="eos";
//channel ch1,ch2;
ch1=channel();
ch2=channel();
task source(right) {right!2;right!3;right!4;right!eos;};
task sink(left;x) {left?x;while (x!=eos) {print x;left?x;}};
task copy(left,right;x) {left?x;while(x!=eos) {right!x;left?x;}
right!eos;};
task main() {start source(ch1); start copy(ch1,ch2);start sink(ch2);};
end